home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1993 July / InfoMagic USENET CD-ROM July 1993.ISO / sources / sun / volume1 / tooltool2.1c / part03 < prev    next >
Encoding:
Internet Message Format  |  1989-06-06  |  47.7 KB
  1. Path: uunet!husc6!rutgers!aramis.rutgers.edu!dartagnan.rutgers.edu!mcgrew
  2. From: mcgrew@dartagnan.rutgers.edu (Charles Mcgrew)
  3. Newsgroups: comp.sources.sun
  4. Subject: v01i022:  Tooltool - a suntools user interface builder, Part 03/13
  5. Message-ID: <Jun.7.00.11.16.1989.23504@dartagnan.rutgers.edu>
  6. Date: 7 Jun 89 04:11:21 GMT
  7. Organization: Rutgers Univ., New Brunswick, N.J.
  8. Lines: 1364
  9. Approved: mcgrew@aramis.rutgers.edu
  10.  
  11. Submitted-by: Chuck Musciano <chuck@trantor.harris-atd.com>
  12. Posting-number: Volume 1, Issue 22
  13. Archive-name: tooltool2.1c/part03
  14.  
  15. #! /bin/sh
  16. # This is a shell archive.  Remove anything before this line, then unpack
  17. # it by saving it into a file and typing "sh file".  To overwrite existing
  18. # files, type "sh file -c".  You can also feed this as standard input via
  19. # unshar, or by typing "sh <file", e.g..  If this archive is complete, you
  20. # will see the following message at the end:
  21. #        "End of archive 3 (of 13)."
  22. # Contents:  samples/keytool.l samples/keytool.r.14.uu
  23. #   samples/stopwatch.tt samples/vt100/newskeys.ras.uu
  24. #   samples/vt100/term.c tooltool.c
  25. # Wrapped by chuck@melmac on Thu Jun  1 10:39:28 1989
  26. PATH=/bin:/usr/bin:/usr/ucb ; export PATH
  27. if test -f 'samples/keytool.l' -a "${1}" != "-c" ; then 
  28.   echo shar: Will not clobber existing file \"'samples/keytool.l'\"
  29. else
  30. echo shar: Extracting \"'samples/keytool.l'\" \(6797 characters\)
  31. sed "s/^X//" >'samples/keytool.l' <<'END_OF_FILE'
  32. X.TH SETWIN 1 "8 December 1988"
  33. X.SH NAME
  34. Xkeytool \- terminal emulator with interactively redefineable function keys
  35. X.SH SYNOPSIS
  36. X\fBkeytool\fP [\fB\(hyi\fP \fIinit_file\fP] \fIcommand\fP [\fIargs\fP]
  37. X.SH DESCRIPTION
  38. X.LP
  39. X\f2Keytool\fP is an interactive terminal emulator built with \f2tooltool\fP(1).
  40. XIt provides a tty subwindow environment similar to \f2shelltool\fP(1) for executing
  41. Xinteractive commands.  This is very useful for running shell programs both locally
  42. X(such as \f2ssh\fP(1)) and remotely (using \f2rlogin\fP(1), or 
  43. X\f2telnet\fP(1). 
  44. X.LP
  45. X\f2Keytool\fP behaves very much like \f2shelltool\fP(1).
  46. XKeystrokes typed to \f2keytool\fP are passed to the program specified in \fIcommand\fP.
  47. X(\fICommand\fP must specify the full pathname of the program.)
  48. XIf this program is a shell, it accepts commands and runs programs in the usual way.
  49. XAny shelltool-like window arguments may be specified in \fIargs\fP.
  50. XThese are processed by tooltool and not sent to \fIcommand\fP. Any other \fIargs\fP
  51. Xare passed to the program.
  52. X.LP
  53. X\f2Keytool\fP accepts one command line option of its own, \fB\(hyi\fP, and this must be first
  54. Xin the command line. Its argument, \fIinit_file\fP, specifies the initial filename
  55. X\f2keytool\fP will read for function key definitions.  The default is 
  56. X~/.keytool if it exists, and /usr/local/lib/keytool.defaults if not.
  57. X.LP
  58. X\f2Keytool\fP allows definition of the function keys L2-L4, L9-L10, F1-F9, 
  59. Xand R1-R15 with any combinations of CONTROL, SHIFT, and META.  It also 
  60. Xallows definition of any shifted combinations of the three mouse buttons 
  61. Xexcept for one.  CONTROL-SHIFT-META-RIGHT_MOUSE brings up the \f2keytool\fP
  62. Xmenu that is described below.  The unshifted mouse buttons behave as in any
  63. Xtty subwindow: select, adjust, and tty subwindow menu.
  64. X.LP
  65. X\f2Keytool\fP has two complete sets of function key and mouse button 
  66. Xdefinitions designated \fBprimary\fP and \fBsecondary\fP.  These
  67. Xcould be used, for example, with one keyset for shell operation and the 
  68. Xother for an editor.
  69. XThe \f2keytool\fP menu has entries to select either as the active 
  70. Xkeyset. Also, pressing the CONTROL-SHIFT-META combination of any function 
  71. Xkey that is not otherwise bound will toggle the active keyset, annunciating
  72. Xa single beep if the primary keyset becomes active and a double beep for 
  73. Xthe secondary. 
  74. X.SH KEYTOOL MENU
  75. X.LP
  76. XThe \f2keytool\fP menu invoked by CONTROL-SHIFT-META-RIGHT_MOUSE contains 
  77. Xthese entries:
  78. X.IP "\f2Define Keys\fP"
  79. XBring up the \f2keytool\fP \fBkey definition window\fP, descibed below.
  80. X.IP "\f2Use Primary\fP"
  81. XDesignate the primary keyset as active.
  82. X.IP "\f2Use Secondary\fP"
  83. XDesignate the secondary keyset as active.
  84. X.IP "\f2Read Init File\fP"
  85. XRead the currently active initialization file, redefining all function 
  86. Xkey and mouse button combinations. 
  87. X.SH KEY DEFINITION WINDOW
  88. X.IP
  89. XThe \f2keytool\fP \fBkey definition window\fP allows any key to be 
  90. Xredefined for immediate use.  There is no need to edit ~/.keytool and 
  91. Xrestart the application (as with shelltool and .ttyswrc).  The key 
  92. Xdefinition window is activated from the \f2keytool\fP menu described above.
  93. XIt may be moved around and left open without affecting the operation of the
  94. Xapplication window. Thus key definitions can be used or tested out as soon 
  95. Xas they are typed in.
  96. X.IP "\f2Key Definition\fP"
  97. XThe text entry gadget in the bottom center of the window shows the current 
  98. Xdefinition for the selected key.  Directly to its left are choice gadgets 
  99. Xfor selecting the key and shift combination to be defined.  The definition 
  100. Xcan be replaced or altered with any printing or non-printing ascii 
  101. Xcharacters (except for the \fBline separator\fP and \fBitem separator\fP 
  102. Xcharacters described below). A special font is used so that control characters 
  103. Xare identifiable. Certain keys have special functions. TAB advances the 
  104. Xactive text gadget within the key definition window. CONTROL-U deletes the 
  105. Xentire line, and CONTROL-W deletes the last word. DELETE erase the last 
  106. Xcharacter. To enter one of these characters into a key definition, a 
  107. Xspecial button is provided to the right of the text entry gadget. 
  108. X.IP
  109. XMouse button definitions may have tooltool \fIformat\fP specifications for 
  110. Xup to two variables embedded in them. These will be replaced with the
  111. Xmouse cursor's X and Y character positions using 1,1 as the origin.
  112. XFor example, the definition "ESC5%c%c" will cause a mouse button to send 
  113. X"ESC5", followed by the character with the value of the cursor's X position, 
  114. Xfollowed by the character with the value of the cursor's Y position.
  115. X.IP "\f2Define Button\fP"
  116. XKey definitions do not take effect until the \fBdefine\fP button is 
  117. Xselected. If the active key is changed without doing so, the definition is 
  118. Xlost.
  119. X.IP "\f2Function Key Buttons\fP"
  120. XSurrounding the key definition window, there are buttons for each of the 
  121. Xdefinable function keys and the mouse buttons.  The active key for 
  122. Xdefinition can be specified by selecting one of these buttons with the 
  123. Xappropriate shift combination.
  124. X.IP "\f2Active Keyset\fP"
  125. XThis choice gadget allows selection of either the primary or secondary 
  126. Xkeyset for both definition and use.
  127. X.IP "\f2Definition File\fP"
  128. XThis text gadget specifies filename to save or read key definitions from.
  129. XThe entry may be edited in the normal way (CONTROL-W, CONTROL-U, and DELETE).
  130. XIt does filename completion when SPACE is pressed.
  131. X.IP "\f2Item Separator\fP"
  132. X.IP "\f2Line Separator\fP"
  133. XKey definitions may contain any ascii characters \f2except\fP for two. 
  134. X\f2Keytool\fP needs two special characters to separate definitions within 
  135. Xthe definition file.  The item and line separators may be specified as any
  136. Xascii characters that will not be used in key definitions.  The defaults 
  137. Xare TAB and NEWLINE, respectively.  As with the key definition gadget
  138. Xa button is provided next to the separator text gadget for entering TAB, 
  139. XCONTROL-U, CONTROL-W, or DELETE. Selecting the "\fISeparator\fP" text will 
  140. Xtoggle between the two character definition fields. 
  141. X.IP "\f2Save\fP"
  142. XThe \fBsave\fP button normally saves both keysets to the definition file. 
  143. XShift combinations also allow loading key definitions from a file, copying 
  144. Xeither keyset over the other, and setting the definition file gadget to the
  145. Xdefault filename (or the filename specified with the \fB\(hyi\fP command 
  146. Xline option). This last fuction does \f2not\fP load key definitions.
  147. X.IP "\f2Done\fP"
  148. XThe \fBdone\fP button removes the key definition window from the screen. It
  149. Xcan be reopened from the \f2keytool\fP menu.
  150. X.SH AUTHOR
  151. X.LP
  152. XKen Laprade
  153. X.SH FILES
  154. X.LP
  155. X.br
  156. X~/.keytool
  157. X.br
  158. X/usr/local/lib/keytool.defaults
  159. X.SH "SEE ALSO"
  160. X.LP
  161. Xshelltool (1),
  162. Xtooltool (1)
  163. X.SH BUGS
  164. X.LP
  165. XDue to the size of the file  that \f2tooltool\fP(1) must parse, 
  166. X\f2keytool\fP takes an obnoxiously long time to start up.
  167. X
  168. END_OF_FILE
  169. if test 6797 -ne `wc -c <'samples/keytool.l'`; then
  170.     echo shar: \"'samples/keytool.l'\" unpacked with wrong size!
  171. fi
  172. # end of 'samples/keytool.l'
  173. fi
  174. if test -f 'samples/keytool.r.14.uu' -a "${1}" != "-c" ; then 
  175.   echo shar: Will not clobber existing file \"'samples/keytool.r.14.uu'\"
  176. else
  177. echo shar: Extracting \"'samples/keytool.r.14.uu'\" \(6527 characters\)
  178. sed "s/^X//" >'samples/keytool.r.14.uu' <<'END_OF_FILE'
  179. Xbegin 666 keytool.r.14
  180. XM 1X(8  ( !       ! +!0 (  @ $  0"P4 "  ( "  $ L%  @ "  P ! +
  181. XM!0 (  @ 0  0"P4 "  ( %  $ L%  @ " !@ ! +!0 (  @ <  0"P4 "  (
  182. XM (  $ L%  @ " "0 ! +!0 (  @ H  0"P4 "  ( +  $ L%  @ " #  ! +
  183. XM!0 (  @ T  0"P4 "  ( .  $ L%  @ " #P ! +!0 (  @!   0"P4 "  (
  184. XM 1  $ L%  @ " $@ ! +!0 (  @!,  0"P4 "  ( 4  $ L%  @ " %0 ! +
  185. XM!0 (  @!8  0"P4 "  ( 7  $ L%  @ " &  ! +!0 (  @!D  0"P4 "  (
  186. XM :  $ L%  @ " &P ! +!0 (  @!P  0"P4 "  ( =  $ L%  @ " '@ ! +
  187. XM!0 (  @!\  0"P4 "  ( @  $ L%  @ " (0 ! +!0 (  @"(  0"P4 "  (
  188. XM C  $ L%  @ " )  ! +!0 (  @"4  0"P4 "  ( F  $ L%  @ " )P ! +
  189. XM!0 (  @"@  0"P4 "  ( I  $ L%  @ " *@ ! +!0 (  @"L  0"P4 "  (
  190. XM L  $ L%  @ " +0 ! +!0 (  @"X  0"P4 "  ( O  $ L%  @ " ,  ! +
  191. XM!0 (  @#$  0"P4 "  ( R  $ L%  @ " ,P ! +!0 (  @#0  0"P4 "  (
  192. XM U  $ L%  @ " -@ ! +!0 (  @#<  0"P4 "  ( X  $ L%  @ " .0 ! +
  193. XM!0 (  @#H  0"P4 "  ( [  $ L%  @ " /  ! +!0 (  @#T  0"P4 "  (
  194. XM ^  $ L%  @ " /P ! +!0 (  @$   0"P4 "  (!!  $ L%  @ " 0@ ! +
  195. XM!0 (  @$,  0"P4 "  (!$  $ L%  @ " 10 ! +!0 (  @$8  0"P4 "  (
  196. XM!'  $ L%  @ " 2  ! +!0 (  @$D  0"P4 "  (!*  $ L%  @ " 2P ! +
  197. XM!0 (  @$P  0"P4 "  (!-  $ L%  @ " 3@ ! +!0 (  @$\  0"P4 "  (
  198. XM!0  $ L%  @ " 40 ! +!0 (  @%(  0"P4 "  (!3  $ L%  @ " 5  ! +
  199. XM!0 (  @%4  0"P4 "  (!6  $ L%  @ " 5P ! +!0 (  @%@  0"P4 "  (
  200. XM!9  $ L%  @ " 6@ ! +!0 (  @%L  0"P4 "  (!<  $ L%  @ " 70 ! +
  201. XM!0 (  @%X  0"P4 "  (!?  $ L%  @ " 8  ! +!0 (  @&$  0"P4 "  (
  202. XM!B  $ L%  @ " 8P ! +!0 (  @&0  0"P4 "  (!E  $ L%  @ " 9@ ! +
  203. XM!0 (  @&<  0"P4 "  (!H  $ L%  @ " :0 ! +!0 (  @&H  0"P4 "  (
  204. XM!K  $ L%  @ " ;  ! +!0 (  @&T  0"P4 "  (!N  $ L%  @ " ;P ! +
  205. XM!0 (  @'   0"P4 "  (!Q  $ L%  @ " <@ ! +!0 (  @',  0"P4 "  (
  206. XM!T  $ L%  @ " =0 ! +!0 (  @'8  0"P4 "  (!W  $ L%  @ " >  ! +
  207. XM!0 (  @'D  0"P4 "  (!Z  $ L%  @ " >P ! +!0 (  @'P  0"P4 "  (
  208. XM!]  $ L%  @ " ?@ ! +!0 (  @'\  0"P4 "  ("   $ L%  @ " @0 ! +
  209. XM!0 (  @((  0"P4 "  ("#  $ L%  @ " A  ! +!0 (  @(4  0"P4 "  (
  210. XM                                                            
  211. XM                                                            
  212. XM                                                            
  213. XM                                                            
  214. XM                                                            
  215. XM                                                            
  216. XM                                                            
  217. XM                                                            
  218. XM                                                            
  219. XM                                                            
  220. XM                                                            
  221. XM                                                            
  222. XM                                                            
  223. XM                                                            
  224. XM                                                            
  225. XM                                                            
  226. XM                                                            
  227. XM                                                            
  228. XM                                                            
  229. XM                                                            
  230. XM                                                            
  231. XM                                                            
  232. XM                                                            
  233. XM                                                            
  234. XM                                                            
  235. XM                                                            
  236. XM                                                            
  237. XM            3[ 7%1<1#P            !&J0D)#PD)            3JD)
  238. XM#PD)#@           $:I" @("08           !.J0D)"0D.            
  239. XM3Z@(#@@(#P           $^H" X(" @           !&J0@+"0D'        
  240. XM    2:D)#PD)"0    #@0$! 4"@X*"@&!0<%!P   )#0T+"PD  (" @(" \ 
  241. XM        2:L.# H+"0           $BH" @(" \      &"0@("08  ."0D.
  242. XM"0D         2:D-#0L+"0           $:I"0D)"08           !.J0D.
  243. XM" @(            1JD)"0D-!@$          $ZI"0X*"0D           !&
  244. XMJ0@& 0D&            7Z0$! 0$!            $FI"0D)"08         
  245. XM  !1L0H*"@0$            4;45%145"@           %&J"@0*"A$     
  246. XM      !1J@H$! 0$            3Z$#!@P(#P    #@@." X#@@. @X!@@(
  247. XM" 8       !(J 0$ @(!            3J(" @("#@           $2J    
  248. XM              ! H      ?                             ! 0$! 0
  249. XM$!   !         D)"0D                $A(2?R0D_DA(2       $#A4
  250. XM5% P&!145#@0      !DE)AH$! L,E),        ,$A(,"!2C(B89@      
  251. XM  @($"                0($! @(" @(! 0" 0    @$ @(! 0$! 0("! @
  252. XM       05#@X5!               ! 0$/X0$!                     8
  253. XM& @0(           ?@                       !@8       "! 0("! 0
  254. XM("! 0(       #Q"0D9*4F)"0CP        (&"@(" @(" @^        /$)"
  255. XM @0($"! ?@       #Q"0@(< @)"0CP        $#!0D1(3^! 0$        
  256. XM?D! 0'P" D)"/        #Q"0$!\0D)"0CP       !^0@($! @($! 0    
  257. XM    /$)"0CQ"0D)"/        #Q"0D)"/@("0CP            8&    !@8
  258. XM            &!@    8& @0(    @0($"! (! (! (           !^    
  259. XM?@        ! (! (! ($"! @0        #Q"0@($" @   @        8)$).
  260. XM4E),0"(<        &!@8)"0D0GY"0@       'A$1$1X1$)"0GP        \
  261. XM0D) 0$! 0D(\        >$1"0D)"0D)$>        'Y 0$!\0$! 0'X     
  262. XM  !^0$! ?$! 0$!         /$)"0$!.0D)&.@       $)"0D)^0D)"0D( 
  263. XM      !\$! 0$! 0$!!\        '@0$! 0$!$1$.        $)$2%!@<%A,
  264. XM1D(       ! 0$! 0$! 0$!^        @H+&QJJJDI*"@@       $)B8E)2
  265. XM2DI&1D(        \0D)"0D)"0D(\        ?$)"0D)\0$! 0        #Q"
  266. XM0D)"0D)"0CP0" 8   !\0D)"?$A$1$)"        /$)"(!@$ D)"/       
  267. XM /X0$! 0$! 0$!        !"0D)"0D)"0D(\        0D)"0B0D)!@8&   
  268. XM     (*"@I)45%0H*"@       !"0B0D&!@D)$)"        @H)$1"@0$! 0
  269. XM$        'X" @0($"! 0'X      #P@(" @(" @(" @(#P   " 0$ @(! 0
  270. XM" @$! (     / 0$! 0$! 0$! 0$/       &"1"                    
  271. XM         /X      " @$ @                    X1 0\1$0Z        
  272. XM0$! 7&)"0D)B7            #Q"0$! 0CP        " @(Z1D)"0D8Z    
  273. XM        /$)"?D!"/         P2$!!\$! 0$!             Z1D)"0D8Z
  274. XM D(\    0$! 7&)"0D)"0@        @( #@(" @(" @        $!  <! 0$
  275. XM! 0$!$0X    0$! 1$A0<$A$0@       #@(" @(" @(" @           #L
  276. XMDI*2DI*2            7&)"0D)"0@           #Q"0D)"0CP         
  277. XM  !<8D)"0F)<0$! 0       .D9"0D)&.@(" @(      %QB0$! 0$      
  278. XM       \0D \ D(\        $! 0?! 0$! 2#            $)"0D)"1CH 
  279. XM          !"0D(D)!@8            @H*2DI*2;            $)")!@D
  280. XM0D(           !"0B(D%!0("!!0(       ?@0($"! ?@      #A 0$! 0
  281. XM8! 0$! 0#@   ! 0$! 0$  0$! 0$!    !P" @(" @&" @(" AP       R
  282. XM6DP              ."0D."0D  &"0D)"08                         
  283. XM                                                            
  284. XB                                                
  285. X 
  286. Xend
  287. END_OF_FILE
  288. if test 6527 -ne `wc -c <'samples/keytool.r.14.uu'`; then
  289.     echo shar: \"'samples/keytool.r.14.uu'\" unpacked with wrong size!
  290. fi
  291. # end of 'samples/keytool.r.14.uu'
  292. fi
  293. if test -f 'samples/stopwatch.tt' -a "${1}" != "-c" ; then 
  294.   echo shar: Will not clobber existing file \"'samples/stopwatch.tt'\"
  295. else
  296. echo shar: Extracting \"'samples/stopwatch.tt'\" \(7891 characters\)
  297. sed "s/^X//" >'samples/stopwatch.tt' <<'END_OF_FILE'
  298. X#define        update_display(t)    { tenths     = t[0]; \
  299. X                      second_one = t[1]; \
  300. X                      second_ten = t[2]; \
  301. X                      minute_one = t[3]; \
  302. X                      minute_ten = t[4]; \
  303. X                      hour_one   = t[5]; \
  304. X                      hour_ten   = t[6]; \
  305. X                    }
  306. X
  307. X#define        set_time(t)        { t[0] = tenths; \
  308. X                      t[1] = second_one; \
  309. X                      t[2] = second_ten; \
  310. X                      t[3] = minute_one; \
  311. X                      t[4] = minute_ten; \
  312. X                      t[5] = hour_one; \
  313. X                      t[6] = hour_ten; \
  314. X                    }
  315. X
  316. X#define        inc_time(a,b,c,d,e,f,g)    { if (by_seconds) \
  317. X                         b = ++time[1]; \
  318. X                      else if ((a = ++time[0]) > 9) { \
  319. X                         a = time[0] = 0; \
  320. X                         b = ++time[1]; \
  321. X                         } \
  322. X                      if (time[1] > 9) { \
  323. X                         b = time[1] = 0; \
  324. X                         if ((c = ++time[2]) > 5) { \
  325. X                             c = time[2] = 0; \
  326. X                             if ((d = ++time[3]) > 9) { \
  327. X                                d = time[3] = 0; \
  328. X                                if ((e = ++time[4]) > 5) { \
  329. X                                   e = time[4] = 0; \
  330. X                                   if ((f = ++time[5]) > 9) { \
  331. X                                      f = time[5] = 0; \
  332. X                                      if ((g = ++time[6]) > 9) \
  333. X                                        g = time[6] = 0; \
  334. X                                     } \
  335. X                                  } \
  336. X                               } \
  337. X                            } \
  338. X                         } \
  339. X                    }
  340. X
  341. X#define        dec_time(a,b,c,d,e,f,g)    { if (by_seconds) \
  342. X                         b = --time[1]; \
  343. X                      else if ((a = --time[0]) < 0) { \
  344. X                         a = time[0] = 9; \
  345. X                         b = --time[1]; \
  346. X                         } \
  347. X                      if (time[1] < 0) { \
  348. X                         b = time[1] = 9; \
  349. X                         if ((c = --time[2]) < 0) { \
  350. X                             c = time[2] = 5; \
  351. X                             if ((d = --time[3]) < 0) { \
  352. X                                d = time[3] = 9; \
  353. X                                if ((e = --time[4]) < 0) { \
  354. X                                   e = time[4] = 5; \
  355. X                                   if ((f = --time[5]) < 0) { \
  356. X                                      f = time[5] = 9; \
  357. X                                      if ((g = --time[6]) < 0) \
  358. X                                        g = time[6] = 9; \
  359. X                                     } \
  360. X                                  } \
  361. X                               } \
  362. X                            } \
  363. X                         } \
  364. X                    }
  365. X
  366. X#define        TINY_FONT    "/usr/lib/fonts/fixedwidthfonts/screen.r.7"
  367. X#define        MEDIUM_FONT    "/usr/lib/fonts/fixedwidthfonts/screen.b.14"
  368. X#define        BIG_FONT    "/usr/lib/fonts/fixedwidthfonts/gallant.r.19"
  369. X
  370. X#define        TRUE        1
  371. X#define        FALSE        0
  372. X
  373. X#define        ROW_1        4
  374. X#define        ROW_2        17
  375. X#define        ROW_3        39
  376. X
  377. Xapplication ""
  378. X   size 0 by 200 pixels
  379. X   label "  << Stopwatch >>"
  380. X   icon "stopwatch.icon"
  381. X   initialize {
  382. X      remove split_button;
  383. X      remove resume_button;
  384. X      remove stop_button;
  385. X      display start_button;
  386. X      display reset_button;
  387. X      remove split_light;
  388. X      in_split = FALSE;
  389. X      time = tokenize("0 0 0 0 0 0 0");
  390. X      }
  391. X
  392. X   timer {
  393. X      if (count_down) {
  394. X         if (in_split)
  395. X            dec_time(d,d,d,d,d,d,d)
  396. X         else
  397. X            dec_time(tenths, second_one, second_ten, minute_one, minute_ten, hour_one, hour_ten);
  398. X         if (time == "0 0 0 0 0 0 0") {
  399. X            interval = 0;
  400. X            beep;
  401. X            beep;
  402. X            beep;
  403. X            remove stop_button;
  404. X            remove split_button;
  405. X            display start_button;
  406. X            if (!in_split)
  407. X               display reset_button;
  408. X            }
  409. X         }
  410. X      else if (in_split)
  411. X         inc_time(d,d,d,d,d,d,d)
  412. X      else
  413. X         inc_time(tenths, second_one, second_ten, minute_one, minute_ten, hour_one, hour_ten);
  414. X      }
  415. X
  416. Xgadgets
  417. X   font MEDIUM_FONT
  418. X   choice count_down
  419. X      at 4 ROW_1
  420. X      display current
  421. X      "Up" : TINY_FONT    nothing;
  422. X      "Down": TINY_FONT    nothing;
  423. X   end_choice
  424. X   label split_light
  425. X      at 61 ROW_1
  426. X      "Split" : TINY_FONT
  427. X   end_label
  428. X   choice by_seconds
  429. X      at 110 ROW_1
  430. X      display current
  431. X      "0.1 sec" : TINY_FONT {
  432. X         display decimal_point;
  433. X         display tenths;
  434. X         if (interval > 0)
  435. X            interval = 0.1;
  436. X         }
  437. X      "  1 sec" : TINY_FONT {
  438. X         remove decimal_point;
  439. X         remove tenths;
  440. X         tenths = time[0] = 0;
  441. X         if (interval > 0)
  442. X            interval = 1;
  443. X         }
  444. X   end_choice
  445. X   choice hour_ten
  446. X      at 16 ROW_2
  447. X      display current
  448. X      "0" : BIG_FONT        nothing;
  449. X      "1" : BIG_FONT        nothing;
  450. X      "2" : BIG_FONT        nothing;
  451. X      "3" : BIG_FONT        nothing;
  452. X      "4" : BIG_FONT        nothing;
  453. X      "5" : BIG_FONT        nothing;
  454. X      "6" : BIG_FONT        nothing;
  455. X      "7" : BIG_FONT        nothing;
  456. X      "8" : BIG_FONT        nothing;
  457. X      "9" : BIG_FONT        nothing;
  458. X   end_choice
  459. X   choice hour_one
  460. X      at 28 ROW_2
  461. X      display current
  462. X      "0" : BIG_FONT        nothing;
  463. X      "1" : BIG_FONT        nothing;
  464. X      "2" : BIG_FONT        nothing;
  465. X      "3" : BIG_FONT        nothing;
  466. X      "4" : BIG_FONT        nothing;
  467. X      "5" : BIG_FONT        nothing;
  468. X      "6" : BIG_FONT        nothing;
  469. X      "7" : BIG_FONT        nothing;
  470. X      "8" : BIG_FONT        nothing;
  471. X      "9" : BIG_FONT        nothing;
  472. X   end_choice
  473. X   label
  474. X      at 40 ROW_2
  475. X      ":" : BIG_FONT
  476. X   end_label
  477. X   choice minute_ten
  478. X      at 52 ROW_2
  479. X      display current
  480. X      "0" : BIG_FONT        nothing;
  481. X      "1" : BIG_FONT        nothing;
  482. X      "2" : BIG_FONT        nothing;
  483. X      "3" : BIG_FONT        nothing;
  484. X      "4" : BIG_FONT        nothing;
  485. X      "5" : BIG_FONT        nothing;
  486. X   end_choice
  487. X   choice minute_one
  488. X      at 64 ROW_2
  489. X      display current
  490. X      "0" : BIG_FONT        nothing;
  491. X      "1" : BIG_FONT        nothing;
  492. X      "2" : BIG_FONT        nothing;
  493. X      "3" : BIG_FONT        nothing;
  494. X      "4" : BIG_FONT        nothing;
  495. X      "5" : BIG_FONT        nothing;
  496. X      "6" : BIG_FONT        nothing;
  497. X      "7" : BIG_FONT        nothing;
  498. X      "8" : BIG_FONT        nothing;
  499. X      "9" : BIG_FONT        nothing;
  500. X   end_choice
  501. X   label
  502. X      at 76 ROW_2
  503. X      ":" : BIG_FONT
  504. X   end_label
  505. X   choice second_ten
  506. X      at 88 ROW_2
  507. X      display current
  508. X      "0" : BIG_FONT        nothing;
  509. X      "1" : BIG_FONT        nothing;
  510. X      "2" : BIG_FONT        nothing;
  511. X      "3" : BIG_FONT        nothing;
  512. X      "4" : BIG_FONT        nothing;
  513. X      "5" : BIG_FONT        nothing;
  514. X   end_choice
  515. X   choice second_one
  516. X      at 100 ROW_2
  517. X      display current
  518. X      "0" : BIG_FONT        nothing;
  519. X      "1" : BIG_FONT        nothing;
  520. X      "2" : BIG_FONT        nothing;
  521. X      "3" : BIG_FONT        nothing;
  522. X      "4" : BIG_FONT        nothing;
  523. X      "5" : BIG_FONT        nothing;
  524. X      "6" : BIG_FONT        nothing;
  525. X      "7" : BIG_FONT        nothing;
  526. X      "8" : BIG_FONT        nothing;
  527. X      "9" : BIG_FONT        nothing;
  528. X   end_choice
  529. X   label decimal_point
  530. X      at 112 ROW_2
  531. X      "." : BIG_FONT
  532. X   end_label
  533. X   choice tenths
  534. X      at 124 ROW_2
  535. X      display current
  536. X      "0" : BIG_FONT        nothing;
  537. X      "1" : BIG_FONT        nothing;
  538. X      "2" : BIG_FONT        nothing;
  539. X      "3" : BIG_FONT        nothing;
  540. X      "4" : BIG_FONT        nothing;
  541. X      "5" : BIG_FONT        nothing;
  542. X      "6" : BIG_FONT        nothing;
  543. X      "7" : BIG_FONT        nothing;
  544. X      "8" : BIG_FONT        nothing;
  545. X      "9" : BIG_FONT        nothing;
  546. X   end_choice
  547. X   button start_button
  548. X      at 4 ROW_3
  549. X      normal "Start" {
  550. X         interval = by_seconds? 1 : 0.1;
  551. X         if (!in_split)
  552. X            set_time(time);
  553. X         remove start_button;
  554. X         remove reset_button;
  555. X         display stop_button;
  556. X         if (!in_split)
  557. X            display split_button;
  558. X         }
  559. X   end_button
  560. X   button stop_button
  561. X      at 4 ROW_3
  562. X      normal "Stop" {
  563. X         interval = 0;
  564. X         remove stop_button;
  565. X         remove split_button;
  566. X         display start_button;
  567. X         if (!in_split)
  568. X            display reset_button;
  569. X         }
  570. X   end_button
  571. X   button split_button
  572. X      at 91 ROW_3
  573. X      normal "Split" {
  574. X         in_split = TRUE;
  575. X         remove split_button;
  576. X         display resume_button;
  577. X         display split_light;
  578. X         }
  579. X   end_button
  580. X   button resume_button
  581. X      at 91 ROW_3
  582. X      normal "Resume" {
  583. X         in_split = FALSE;
  584. X         remove resume_button;
  585. X         remove split_light;
  586. X         update_display(time);
  587. X         if (interval > 0)
  588. X            display split_button;
  589. X         else
  590. X            display reset_button;
  591. X         }
  592. X   end_button
  593. X   button reset_button
  594. X      at 91 ROW_3
  595. X      normal "Reset" {
  596. X         time = tokenize("0 0 0 0 0 0 0");
  597. X         update_display(time);
  598. X         }
  599. X   end_button
  600. Xend_gadgets
  601. END_OF_FILE
  602. if test 7891 -ne `wc -c <'samples/stopwatch.tt'`; then
  603.     echo shar: \"'samples/stopwatch.tt'\" unpacked with wrong size!
  604. fi
  605. # end of 'samples/stopwatch.tt'
  606. fi
  607. if test -f 'samples/vt100/newskeys.ras.uu' -a "${1}" != "-c" ; then 
  608.   echo shar: Will not clobber existing file \"'samples/vt100/newskeys.ras.uu'\"
  609. else
  610. echo shar: Extracting \"'samples/vt100/newskeys.ras.uu'\" \(7089 characters\)
  611. sed "s/^X//" >'samples/vt100/newskeys.ras.uu' <<'END_OF_FILE'
  612. Xbegin 644 newskeys.ras
  613. XM6:9JE0   28   "&     0  $^0    !                            
  614. XM                                                            
  615. XM                        '________________________     !_____
  616. XM____________X  0     $     $     $     $     $     $     $  
  617. XM   0 !      0     0     0     0     0     0     0    !  $   
  618. XM  !     !     !           !     !     !     $  0,,0< $2>0< $
  619. XM,1.< $,1",<<     $,>,<,$<>,.,$<><>,0 !!))!( 1)!!( 1)(1( 1)(1
  620. XM))(     1)!))(1)!(1(1)!)!)  $$$D$@!'G$$@!"%!$@!"%!$$D@    !"
  621. XM'$DD!$G$!"!$G$G$$  06202 $200< $$<$< $$<(6<<     $$0><0$<06$
  622. XM$$20<060 !!))!( 1)!!  1)(1  1)(A)1      1)!)1(11!(1(1)!1!)  
  623. XM$##'G !$GGD !#$3D !#$4#$D     !#'DDC!$GC#C!''DGC$  0     $  
  624. XM   $     $           $     $     $     0 !      0     0     
  625. XM0     0     0     0     0    !  $     !     !     !     !   
  626. XM  !     !     !     $  0     $     $     $     $     $     $
  627. XM     $     0 !      0     0     0     0     0     0     0   
  628. XM !  $     !     !     !     !     !     !     !     $  0    
  629. XM $     $     $           $     $     $     0 !      0     0 
  630. XM    0Q$)XQ    P(      0     0    !  $     !     !     !$DA$$
  631. XMD CC!#B     !     !     $  0     $     $     $(4$<20$22$2$  
  632. XM   $     $     0 !      0     0     01PA!) M)(1)H     0     
  633. XM0    !  $     !     !     !$DB$$D!#DA$A     !     !     $  0
  634. XM     $     $     $,100,>"",$.(     $     $     0 !      0   
  635. XM  0     0      !P         0     0    !  $     !     !     ! 
  636. XM    !     !     !     !     $  0     $     $     $     $    
  637. XM $     $     $     0 !      0     0     0     0     0     0 
  638. XM    0    !  '________________________     !_________________
  639. XM\  0     $     $     $     $     $     $     $     0 !      
  640. XM0     0     0     0     0     0     0    !  $     !     !   
  641. XM  !     !     !     !     !     $  0<.<  $<"1>1$<"<>,$<",00$
  642. XM     $,>0>,$2< $,$<, $,0 !!(1(  1(1E!$1(1)!(1(1)! 0     1)!!
  643. XM!(1)( Q(1)( Q)  $$A$@ !$A%7%1$A$G$!$A$D$!     !"'$'$!$D@!#!$
  644. XMD@!#$  02$<  $2(305$2(<06$2(>00$     $$0000$2< $2$22 $20 !!(
  645. XM10  1(A%!L1(A1!(1(A)! 0     1)!!!(1)  1(1)( 1)  $'#D@ !'$$7D
  646. XM1'$$GC!'$$GGA     !#'GGC!#$ #C!'# #C$  0     $     $     $  
  647. XM   $     $     $     $     0 !      0     0     0     0     
  648. XM0     0     0    !  $     !     !     !     !     !     !   
  649. XM  !     $  0     $     $     $     $     $     $     $     0
  650. XM !      0     0     0     0     0     0     0    !  $     ! 
  651. XM    !     !     !     !     !     !     $  0     $     $    
  652. XM $     $     $     $     $     0 !!QPY%\1Y%]P 1Y$(Q 1Y$(QP0 
  653. XM  P(      1\QP  1PQ]]%  $$DA&1!$"A$@!$"A$D!$"A$DA CC!#B     
  654. XM!!$D@ !$DA!&T  022$5$$<$$2 $<$$20$<$$22$$22$2$     $$22  $<2
  655. XM$$50 !!QP1,01 H1P 1 HAY 1 HAYP0M)(1)H     01)P  1)(015  $$%!
  656. XM$1!$$1% !$$2$D!$$2$D!!#DA$A     !!$D  !$DA!$4  002.1$$>1$2 $
  657. XM>102>$>1020$"",$.(     $$,0  $<,$$10 !      0     0     0   
  658. XM  0!P         0     0    !  $     !     !     !     !     ! 
  659. XM    !     !     $  0     $     $     $     $     $     $    
  660. XM $     0 !      0     0     0     0     0     0     0    !  
  661. XM'________________________     !_________________\  0     $  
  662. XM   $     $     $                         !      0     0     
  663. XM0     0                         $'#G  ! $G  !' G'C!' C$$!   
  664. XM                       02$2  $(22" $2$202$2$200$            
  665. XM             !!(1(  01)(0 1(1)Q 1(1)! 0                     
  666. XM    $$A'  ! DG" !$B'$%A$B'D$!                          02$4 
  667. XM $$20$ $2(402$2(200$                         !!PY(  0@Q ( 1Q
  668. XM!)XP1Q!)YX0                         $     !     !     !     
  669. XM!                          0     $     $     $     $        
  670. XM                 !      0     0     0     0                 
  671. XM        $     !     !     !     !                          0
  672. XM     $     $     $     $                         !      0   
  673. XM        0     0                         $     !''@G#'     ! 
  674. XM    !   # @                    0     $20$222     $     $".,$
  675. XM.                    !      1)P1))(     0     01)(1(        
  676. XM            $     !'$"''G     !     !"TDA$@                 
  677. XM   0     $40(024     $     $$.2$2                    !      
  678. XM1)Y!!)(     0     0((P0X                    $     !         
  679. XM  !     ! '                        0     $     $     $     $
  680. XM                         !      0     0     0     0         
  681. XM                '________________________                   
  682. XM       0     $     $     $     $                         !  
  683. XM    0     0     0     0                         $     !     
  684. XM!     !                                0<>,< $ <,  $<"1>1$ >
  685. XM (                           !!)!)( 0A)(( 1(1E H0!!1XQ0     
  686. XM                    $$G$D@!!$DA !$A%7!! '&B$F@              
  687. XM           0<0>2 $"22( $<(30*$ 02(<0                        
  688. XM !!1!)( 01)(0 10A%!$0!!(A!                          $$GDG !"
  689. XM'# @!$D$7D1 'DACD                          0     $     $    
  690. XM $                               !      0     0     0     0 
  691. XM                        $     !     !     !     !           
  692. XM               0     $     $     $     $                    
  693. XM     !      0     0     0     0                         $   
  694. XM  !     !           !                          0           $
  695. XM           $                         !!QX))XP     1P)$ )(   
  696. XM  0   P(                    $$D!$D$@    !$A&41$@    ! CC!#@ 
  697. XM                   02<$><2     $2$5*$>     $$22$2           
  698. XM         !!Q A)!X     1PA,0A(     0M)(1(                    
  699. XM$%$"$D$@    !%"$2B$@    !!#DA$@                    02>02>2  
  700. XM   $201102     $"",$.                    !            0     
  701. XM      0!P                       $     !     !     !     !   
  702. XM                       0     $     $     $     $            
  703. XM             !________________________P                     
  704. XM    $     !     !     !                                0    
  705. XM $     $     $                               !      0     0 
  706. XM    0                               $     !     !     !     
  707. XM                           0     $     $                    
  708. XM                 !!P)$  0     1P)$ )X                       
  709. XM        $$A&40!     !$A&41$                                0
  710. XM2$51 $     $2$51$<                               !!PA-4 0   
  711. XM  1PA-4A                                $%"$50!     !%"$52$ 
  712. XM                               0201* $     $201*00          
  713. XM                     !      0     0     0                   
  714. XM            $     !     !     !                             
  715. XM   0     $     $     $                               !      
  716. XM0     0     0                               $           !   
  717. XM                                   0<"1 "2     $<"1 ">"2    
  718. XM   ,"                    !!(1E$1(     1(1E$1 1(    (XP0X    
  719. XM                $$A%41'@    !$A%41'!'@   !$DA$@             
  720. XM       0<(35(2     $<(35(0(2    +22$2                    !!0
  721. XMA%4A(     10A%4A A(    0Y(1(                    $$D$2D$@    
  722. XM!$D$2D$$$@    @C!#@                    0           $        
  723. XM     <                       !      0     0     0           
  724. XM                    $     !     !     !                     
  725. XM           ?_____\     '_____\                              
  726. XG                                                    
  727. X 
  728. Xend
  729. END_OF_FILE
  730. if test 7089 -ne `wc -c <'samples/vt100/newskeys.ras.uu'`; then
  731.     echo shar: \"'samples/vt100/newskeys.ras.uu'\" unpacked with wrong size!
  732. fi
  733. # end of 'samples/vt100/newskeys.ras.uu'
  734. fi
  735. if test -f 'samples/vt100/term.c' -a "${1}" != "-c" ; then 
  736.   echo shar: Will not clobber existing file \"'samples/vt100/term.c'\"
  737. else
  738. echo shar: Extracting \"'samples/vt100/term.c'\" \(8436 characters\)
  739. sed "s/^X//" >'samples/vt100/term.c' <<'END_OF_FILE'
  740. X /*
  741. X * vtem - A termcap driven VT100 emulator for BSD Unix
  742. X *
  743. X * $Header: /home/src/local/vttool/RCS/term.c,v 1.2 89/02/08 16:04:37 jqj Exp $
  744. X *
  745. X * $Log:    term.c,v $
  746. X * Revision 1.2  89/02/08  16:04:37  jqj
  747. X * 1/ set vttype to indicate what type of termianl (VT52, VT100, or VT102)
  748. X *    we can support
  749. X * 2/ don't do standout on terminals with standout glitches
  750. X * 3/ use appropriate padding on output
  751. X * 4/ clear to beginning of line must clear cursor too
  752. X * 5/ support for insert/delete character
  753. X * 6/ use "sr" rather than "up" to perform an upline-with-scroll.  The spec.
  754. X *    is unclear, but most existing termcap entries seem to work that way.
  755. X * 
  756. X * Version 1.1
  757. X *
  758. X * Public domain software.
  759. X * Written by Leif Samuelsson (leif@erisun) in December, 1985
  760. X */
  761. X
  762. X
  763. X/* This module contains termcap and tty routines */
  764. X
  765. X#include "vtem.h"
  766. X
  767. Xextern char *tgetstr(), *tgoto();
  768. X
  769. Xenum vt_terminal vttype;    /* the most powerful terminal we can support */
  770. X
  771. X/* Variables for saving original terminal parameters */
  772. Xstruct sgttyb oldb, newb;
  773. Xstruct tchars oldtchars, newtchars = { -1, -1, -1, -1, -1, -1 };
  774. Xstruct ltchars oldltchars, newltchars = { -1, -1, -1, -1, -1, -1 };
  775. Xint oldlb, newlb, oldl, newl;
  776. X
  777. X/* Terminal attributes */
  778. Xchar tbuf[1024];
  779. XBool BS;
  780. Xint CO, LI;
  781. Xchar    *AL, *BC, *BL, *CB, *CD, *CL, *CE, *CM, *CR, *CS, *DC, *DL, 
  782. X    *DO, *EI, *IC, *IM,
  783. X    *KE, *KS, *MB, *MD, *ME, *MR, *ND, *NL, *SE, *SO, *SR,
  784. X    *TI, *TE, *UE, *UP, *US, *MAL, *MDL;
  785. X
  786. X/* putchar() is (usually) just a macro, so... */ 
  787. Xputchar_x(c)
  788. Xchar c;
  789. X{
  790. X    putchar(c);
  791. X}
  792. X
  793. Xttycbreak()
  794. X{
  795. X    ioctl(0, TIOCGETP, &oldb);
  796. X    ioctl(0, TIOCGETC, &oldtchars);
  797. X    ioctl(0, TIOCGETD, &oldl);
  798. X    ioctl(0, TIOCGLTC, &oldltchars);
  799. X    ioctl(0, TIOCLGET, &oldlb);
  800. X
  801. X    newb = oldb;
  802. X    newb.sg_flags |= CBREAK;
  803. X    newb.sg_flags &= ~(CRMOD | ECHO);
  804. X    ioctl(0, TIOCSETP, &newb);
  805. X    ioctl(0, TIOCSETC, &newtchars);
  806. X    ioctl(0, TIOCSLTC, &newltchars);
  807. X    signal(SIGINT,SIG_IGN);
  808. X}
  809. X
  810. X
  811. X/* gettermtype - Finds terminal type and reads termcap entry for it.
  812. X */
  813. Xgettermtype()
  814. X{
  815. Xchar tptr[1024];
  816. Xchar *termtyp;
  817. Xchar *tbufptr;
  818. X
  819. X    termtyp=getenv("TERM");
  820. X    switch(tgetent(tptr,termtyp)) {
  821. X    case -1:
  822. X        printf("Can't read termcap\n");
  823. X        exit(1);
  824. X    case 0:
  825. X        printf("Can't find your terminal type (%s) in termcap\n", termtyp);
  826. X        exit(1);
  827. X    }
  828. X    tbufptr=tbuf;
  829. X    AL = tgetstr("al", &tbufptr);
  830. X    BC = tgetstr("bc", &tbufptr);
  831. X    BL = tgetstr("bl", &tbufptr);
  832. X    if (!BL)
  833. X    BL = tgetstr("vb", &tbufptr);
  834. X    if (!BL)
  835. X    BL = "\007";
  836. X    BS = tgetflag("bs",&tbufptr);
  837. X    if (!BC && BS)
  838. X    BC = "\b";
  839. X    CB = tgetstr("cb", &tbufptr);
  840. X    CD = tgetstr("cd", &tbufptr);
  841. X    CL = tgetstr("cl", &tbufptr);
  842. X    CE = tgetstr("ce", &tbufptr);
  843. X    CM = tgetstr("cm", &tbufptr);
  844. X    CR = tgetstr("cr", &tbufptr);
  845. X    if (!CR)
  846. X    CR = "\r";
  847. X    CS = tgetstr("cs", &tbufptr);
  848. X    DC = tgetstr("dc", &tbufptr);
  849. X    DL = tgetstr("dl", &tbufptr);
  850. X    DO = tgetstr("do", &tbufptr);
  851. X    if (!DO)
  852. X    DO = "\n";
  853. X    EI = tgetstr("ei", &tbufptr);
  854. X    if (EI && !*EI)
  855. X    EI = NULL;
  856. X    IC = tgetstr("ic", &tbufptr);
  857. X    IM = tgetstr("im", &tbufptr);
  858. X    if (!tgetflag("mi") || tgetflag("in") || (IM && !*IM))
  859. X    IM = NULL;
  860. X    KE = tgetstr("ke", &tbufptr);
  861. X    KS = tgetstr("ks", &tbufptr);
  862. X    MB = tgetstr("mb", &tbufptr);    /* blink */
  863. X    MD = tgetstr("md", &tbufptr);    /* bold */
  864. X    ME = tgetstr("me", &tbufptr);    /* end all attributes */
  865. X    MR = tgetstr("mr", &tbufptr);    /* reverse-video */
  866. X    ND = tgetstr("nd", &tbufptr);
  867. X    NL = tgetstr("nl", &tbufptr);
  868. X    if (!NL)
  869. X    NL = "\n";
  870. X    SO = tgetstr("so", &tbufptr);
  871. X    SE = tgetstr("se", &tbufptr);
  872. X    /* should also test tgetflag("ms") -- safe to move while standout */
  873. X    if (tgetnum("sg") > 0 ||        /* attribute characters? */
  874. X    tgetflag("xs"))            /* standout not erased by overwrite */
  875. X       SO = SE = MB = MD = MR = NULL;
  876. X    SR = tgetstr("sr", &tbufptr);
  877. X    TI = tgetstr("ti", &tbufptr);
  878. X    TE = tgetstr("te", &tbufptr);
  879. X    UE = tgetstr("ue", &tbufptr);
  880. X    UP = tgetstr("up", &tbufptr);
  881. X    US = tgetstr("us", &tbufptr);
  882. X    if (tgetnum("ug") > 0)        /* garbage characters on US/UE */
  883. X    US = UE = 0;
  884. X    MAL = tgetstr("AL", &tbufptr);
  885. X    MDL = tgetstr("DL", &tbufptr);
  886. X    if ((CO = tgetnum("co")) == 0) CO = 80;
  887. X    if ((LI = tgetnum("li")) == 0) LI = 24;
  888. X    if (!TI) {
  889. X        TI = tgetstr("vs", &tbufptr);
  890. X        TE = tgetstr("ve", &tbufptr);
  891. X    }
  892. X
  893. X    if (CO < 80 || LI < 24) {
  894. X    printf("Sorry, but vtem requires 24 by 80 lines.\r\n");
  895. X    exit(1);
  896. X    }
  897. X    if (!CM || !UP) {
  898. X    printf("Sorry, but vtem requires cursor motion capabilities (cm,up,do,nd).\r\n");
  899. X    exit(1);
  900. X    }
  901. X    if (!CL || !CD) {
  902. X    printf("Sorry, but vtem requires clear screen capabilities (cl,cd).\r\n");
  903. X    exit(1);
  904. X    }
  905. X    if (!(CS && SR) && !(DL && AL))
  906. X    vttype = VT52;            /* no scrolling capabilities */
  907. X    else if (DC && (IC || (IM && EI)))
  908. X    vttype = VT102;            /* insert/delete char */
  909. X    else
  910. X    vttype = VT100;            /* normal */
  911. X}
  912. X
  913. Xsetupterm(flg)            /* If flg==TRUE, set line in cbreak mode and */
  914. XBool flg;            /* initialize the terminal,otherwise restore */
  915. X{
  916. X    if (flg) {
  917. X    ttycbreak();
  918. X    if (TI)
  919. X        tputs_x(TI);    /* start CM mode */
  920. X    }
  921. X    else {
  922. X    if (KE)
  923. X        tputs_x(KE);    /* Restores Keypad */
  924. X    if (TE)
  925. X        tputs_x(TE);    /* exit CM mode */
  926. X    ioctl(0, TIOCSETP, &oldb);
  927. X    ioctl(0, TIOCSETC, &oldtchars);
  928. X    ioctl(0, TIOCSLTC, &oldltchars);
  929. X    }
  930. X}
  931. X
  932. X/* clear_bos - clear from beginning of screen to cursor
  933. X * logical cursor is at (c,r) which may be past right edge of display
  934. X */
  935. Xclear_bos(c,r)
  936. Xint c,r;
  937. X{
  938. Xregister int i,j;
  939. X
  940. X    for (i=0; i<r; i++) {
  941. X    tputs_pad(tgoto(CM, 0, i),r);
  942. X    if (CE)
  943. X        tputs_x(CE);
  944. X    else {
  945. X        for (j=0; j < 80; j++)
  946. X        putchar(' ');
  947. X    }
  948. X    }
  949. X    clear_bol(c,r);
  950. X}
  951. X
  952. X/* clear_eos - Clear from cursor to end of screen.
  953. X */
  954. Xclear_eos()
  955. X{
  956. X    tputs_pad(CD,LI);
  957. X}
  958. X
  959. X/* clear_bol - Clear from beginning of line to cursor.
  960. X * logical cursor is at (c,r) which may be past right edge of display
  961. X */
  962. Xclear_bol(c,r)
  963. Xint c,r;
  964. X{
  965. Xregister int i;
  966. X
  967. X    if (CB) {
  968. X    tputs_x(CB);
  969. X    return;
  970. X    }
  971. X    tputs_x(tgoto(CM, 0, r));
  972. X    if (c >= CO-1) {
  973. X    cr();
  974. X    clear_eol(0,r);
  975. X    tputs_x(tgoto(CM, CO-1, r));
  976. X    } else {
  977. X    for (i=(r==LI-1)?c-1:c; i>=0; i--)
  978. X        putchar(' ');
  979. X    backspace();
  980. X    }
  981. X}
  982. X
  983. X/* clear_eol - Clear from cursor to end of line.
  984. X * logical cursor is at (c,r) which may be past right edge of display
  985. X */
  986. Xclear_eol(c, r)
  987. Xint c, r;
  988. X{
  989. Xregister int i;
  990. X
  991. X    if (CE)
  992. X    tputs_x(CE);
  993. X    else {
  994. X        if (c >= CO)
  995. X            return;
  996. X        for (i=(r==LI-1)?CO-c-1:CO-c; i>0; i--)
  997. X        putchar(' ');
  998. X    tputs_x(tgoto(CM, c, r));
  999. X    }
  1000. X}
  1001. X
  1002. X
  1003. Xcursor_up()
  1004. X{
  1005. X    tputs_x(UP); 
  1006. X}
  1007. X
  1008. X
  1009. Xcursor_down()
  1010. X{
  1011. X    tputs_x(DO); 
  1012. X}
  1013. X
  1014. X
  1015. Xcursor_right()
  1016. X{
  1017. X    tputs_x(ND); 
  1018. X}
  1019. X
  1020. X
  1021. Xreverse_lf()
  1022. X{
  1023. X    if (SR)
  1024. X    tputs_x(SR);        /* we hope.  May not move cursor. */
  1025. X    else
  1026. X    cursor_up();        /* We hope. May not scroll up properly! */
  1027. X}
  1028. X
  1029. X
  1030. X/* start_reverse - Set terminal in reverse video mode.
  1031. X */
  1032. Xstart_reverse()
  1033. X{
  1034. X    if (MR)
  1035. X    tputs_x(MR);
  1036. X    else
  1037. X    tputs_x(SO);
  1038. X}
  1039. X
  1040. X
  1041. Xstart_blink()
  1042. X{
  1043. X    tputs_x(MB);
  1044. X}
  1045. X
  1046. X
  1047. Xstart_underline()
  1048. X{
  1049. X    tputs_x(US);
  1050. X}
  1051. X
  1052. X
  1053. Xstart_bold()
  1054. X{
  1055. X    if (MD)
  1056. X    tputs_x(MD);
  1057. X    else
  1058. X    tputs_x(SO);
  1059. X}
  1060. X
  1061. X
  1062. Xring_bell()
  1063. X{
  1064. X    tputs_x(BL);
  1065. X}
  1066. X
  1067. X
  1068. X/* end_attributes - Reset terminal attributes to normal.
  1069. X */
  1070. Xend_attributes()
  1071. X{
  1072. X    if (ME)
  1073. X    tputs_x(ME);
  1074. X    else {
  1075. X    tputs_x(SE);
  1076. X    tputs_x(UE);
  1077. X    }
  1078. X}
  1079. X
  1080. X
  1081. Xscroll_region(lin1, lin2, upward)      /* Scroll region between lin1 and */
  1082. Xint lin1, lin2;                   /* lin2 inclusive one line up or down */
  1083. X{
  1084. X    /* Use scroll region if available - otherwise use insert/delete line*/
  1085. X    if (CS && SR) {
  1086. X    tputs_x(tgoto(CS,lin2,lin1));
  1087. X    if (upward) {
  1088. X        set_cursor(0,lin2);
  1089. X        tputs_x(NL);
  1090. X    }
  1091. X    else {
  1092. X        set_cursor(0,lin1);
  1093. X        tputs_x(SR);
  1094. X    }
  1095. X    tputs_x(tgoto(CS,23,0));
  1096. X    }
  1097. X    else if (DL && AL) {
  1098. X    if (upward) {
  1099. X        set_cursor(0,lin1);
  1100. X        tputs_pad(DL,LI-lin1);
  1101. X        set_cursor(0,lin2);
  1102. X        tputs_pad(AL,LI-lin2);
  1103. X    }
  1104. X    else {
  1105. X        set_cursor(0,lin2);
  1106. X        tputs_pad(DL,LI-lin2);
  1107. X        set_cursor(0,lin1);
  1108. X        tputs_pad(AL,LI-lin1);
  1109. X    }
  1110. X    }
  1111. X}
  1112. X
  1113. Xdelete_char()
  1114. X{
  1115. X    tputs_x(DC);
  1116. X}
  1117. X
  1118. X/*
  1119. X * register intention to start/end inserting
  1120. X * (must also call insert_char() before each character actually written)
  1121. X */
  1122. Xset_insert_mode(onoff)
  1123. XBool onoff;
  1124. X{
  1125. X    if (IM && EI) {
  1126. X    if (onoff)
  1127. X        tputs_x(IM);
  1128. X    else
  1129. X        tputs_x(EI);
  1130. X    }
  1131. X}
  1132. X
  1133. X
  1134. X/*
  1135. X * call to write any printing char while in insert mode
  1136. X * (must call insert_mode(1) to start and insert_mode(0) to end insert mode)
  1137. X */
  1138. Xinsert_char(ch)
  1139. Xchar ch;
  1140. X{
  1141. X    if (IC && (!IM || !EI))
  1142. X    tputs_x(IC);
  1143. X    putchar(ch);
  1144. X}
  1145. END_OF_FILE
  1146. if test 8436 -ne `wc -c <'samples/vt100/term.c'`; then
  1147.     echo shar: \"'samples/vt100/term.c'\" unpacked with wrong size!
  1148. fi
  1149. # end of 'samples/vt100/term.c'
  1150. fi
  1151. if test -f 'tooltool.c' -a "${1}" != "-c" ; then 
  1152.   echo shar: Will not clobber existing file \"'tooltool.c'\"
  1153. else
  1154. echo shar: Extracting \"'tooltool.c'\" \(6455 characters\)
  1155. sed "s/^X//" >'tooltool.c' <<'END_OF_FILE'
  1156. X/************************************************************************/
  1157. X/*    Copyright 1988 by Chuck Musciano and Harris Corporation        */
  1158. X/*                                    */
  1159. X/*    Permission to use, copy, modify, and distribute this software    */
  1160. X/*    and its documentation for any purpose and without fee is    */
  1161. X/*    hereby granted, provided that the above copyright notice    */
  1162. X/*    appear in all copies and that both that copyright notice and    */
  1163. X/*    this permission notice appear in supporting documentation, and    */
  1164. X/*    that the name of Chuck Musciano and Harris Corporation not be    */
  1165. X/*    used in advertising or publicity pertaining to distribution    */
  1166. X/*    of the software without specific, written prior permission.    */
  1167. X/*    Chuck Musciano and Harris Corporation make no representations    */
  1168. X/*    about the suitability of this software for any purpose.  It is    */
  1169. X/*    provided "as is" without express or implied warranty.        */
  1170. X/*                                    */
  1171. X/*    The sale of any product based wholely or in part upon the     */
  1172. X/*    technology provided by tooltool is strictly forbidden without    */
  1173. X/*    specific, prior written permission from Harris Corporation.    */
  1174. X/*    Tooltool technology includes, but is not limited to, the source    */
  1175. X/*    code, executable binary files, specification language, and    */
  1176. X/*    sample specification files.                    */
  1177. X/************************************************************************/
  1178. X
  1179. X
  1180. X#include    <stdio.h>
  1181. X#include    <ctype.h>
  1182. X
  1183. X#include    <sys/file.h>
  1184. X
  1185. X#include    "tooltool.h"
  1186. X
  1187. XEXPORT    a_ptr    tt_initial_action = NULL,
  1188. X        tt_timer_action = NULL,
  1189. X        tt_func_keys[MAX_KEY_SETS][MAX_FUNC_KEYS][MAX_SHIFT_SETS];
  1190. X
  1191. XEXPORT    char    *tt_application = NULL,
  1192. X        *tt_curr_file = "stdin",
  1193. X        *tt_icon = NULL,
  1194. X        *tt_program;
  1195. X
  1196. XEXPORT    d_ptr    tt_base_window = NULL;
  1197. X
  1198. XEXPORT    int    tt_mouse_base = 0,
  1199. X        tt_mouse_chars = TRUE,
  1200. X        tt_errors_occured = 0,
  1201. X        tt_normal_off = FALSE,
  1202. X        tt_function_off = FALSE,
  1203. X        tt_action_depth = 0,
  1204. X        tt_timer_pending = FALSE;
  1205. X
  1206. XEXPORT    l_ptr    tt_default_mark,
  1207. X        tt_default_nomark,
  1208. X        tt_default_cycle;
  1209. X
  1210. XEXPORT    m_data    tt_mouse[MAX_MOUSE_BUTTONS][MAX_SHIFT_SETS];
  1211. X
  1212. XEXPORT    Menu    tt_ttymenu = NULL;
  1213. X
  1214. XEXPORT    struct    pixfont    *tt_default_font = NULL,
  1215. X            *tt_a_font = NULL;
  1216. X
  1217. XEXPORT    s_ptr    tt_mouse_x,
  1218. X        tt_mouse_y,
  1219. X        tt_delimiters;
  1220. X
  1221. XPRIVATE    short    mark_bits[] = {0x07C0,0x1830,0x2008,0x4384,0x4FE4,0x8FE2,0x9FF2,0x9FF2,
  1222. X                   0x9FF2,0x8FE2,0x4FE4,0x4384,0x2008,0x1830,0x07C0,0x0000};
  1223. Xmpr_static(tt_mark_image, 15, 15, 1, mark_bits);
  1224. X
  1225. XPRIVATE    short    nomark_bits[] = {0x07C0,0x1830,0x2008,0x4004,0x4004,0x8002,0x8002,0x8002,
  1226. X                 0x8002,0x8002,0x4004,0x4004,0x2008,0x1830,0x07C0,0x0000};
  1227. Xmpr_static(tt_nomark_image, 15, 15, 1, nomark_bits);
  1228. X
  1229. XPRIVATE    short    cycle_bits[] = {0x07C0,0x0FE0,0x1834,0x301C,0x601C,0x203C,0x0000,0x0000,
  1230. X                0x7808,0x700C,0x7018,0x5830,0x0FE0,0x07C0,0x0000,0x0000};
  1231. Xmpr_static(tt_cycle_image, 16, 16, 1, cycle_bits);
  1232. X
  1233. X/************************************************************************/
  1234. X/* The main driver parses the specification file, builds the window,    */
  1235. X/* and starts up suntools to execute the user application.        */
  1236. X/************************************************************************/
  1237. X
  1238. X/************************************************************************/
  1239. XPRIVATE    check_args(argc, argv, n1, n2, v1, v2)
  1240. X
  1241. Xint    *argc;
  1242. Xchar    **argv;
  1243. Xchar    *n1;
  1244. Xchar    *n2;
  1245. Xint    *v1;
  1246. Xint    *v2;
  1247. X
  1248. X{    int    i, j;
  1249. X
  1250. X    for (i = 1; i < *argc; i++)
  1251. X       if (strcmp(argv[i], n1) == 0 || strcmp(argv[i], n2) == 0) {
  1252. X          if (i + 1 < *argc)
  1253. X             *v1 = atoi(argv[i + 1]);
  1254. X          else
  1255. X             abend("missing argument after %s", argv[i]);
  1256. X          if (v2)
  1257. X             if (i + 2 < *argc)
  1258. X                *v2 = atoi(argv[i + 2]);
  1259. X             else
  1260. X                abend("missing argument after %s", argv[i]);
  1261. X          for (j = i + (v2? 3 : 2); j < *argc; j++, i++)
  1262. X             argv[i] = argv[j];
  1263. X          *argc -= (v2? 3 : 2);
  1264. X          argv[*argc] = NULL;
  1265. X          break;
  1266. X          }
  1267. X}
  1268. X
  1269. X/************************************************************************/
  1270. Xmain(argc, argv)
  1271. X
  1272. Xint    argc;
  1273. Xchar    **argv;
  1274. X
  1275. X{    int    i, j, k;
  1276. X    int    force_height = -1, force_width = -1, force_rows = -1, force_cols = -1;
  1277. X
  1278. X    tt_program = strsave(argv[0]);
  1279. X
  1280. X    if (argc > 1 && strcmp(argv[1], POLLING_MAGIC_NUMBER) == 0) { /* is this a gross hack, or what? */
  1281. X       wait_for_window_size(atoi(argv[2]), atoi(argv[3]), POLLING_TIME_OUT);
  1282. X       execv(tt_full_path_of(argv[4], X_OK), &(argv[4]));
  1283. X       fprintf(stderr, "could not exec %s\n", argv[4]);
  1284. X       sleep(20);
  1285. X       exit(1);
  1286. X       }
  1287. X
  1288. X    for (i = LEFT_KEY_SET; i < MAX_KEY_SETS; i++)
  1289. X       for (j = 0; j < MAX_FUNC_KEYS; j++)
  1290. X          for (k = 0; k < MAX_SHIFT_SETS; k++)
  1291. X             tt_func_keys[i][j][k] = NULL;
  1292. X    for (i = MOUSE_LEFT; i < MAX_MOUSE_BUTTONS; i++)
  1293. X       for (j = 0; j < MAX_SHIFT_SETS; j++)
  1294. X          tt_mouse[i][j].defined = MOUSE_UNDEFINED;
  1295. X
  1296. X    if (argc >= 3 && strcmp(argv[1], "-f") == 0) {
  1297. X       if (freopen(tt_full_path_of(argv[2], R_OK), "r", stdin) == NULL)
  1298. X          abend("could not read %s", argv[2]);
  1299. X       else {
  1300. X          tt_curr_file = argv[2];
  1301. X          for (i = 3; i < argc; i++)
  1302. X             argv[i - 2] = argv[i];
  1303. X          argc -= 2;
  1304. X          }
  1305. X       }
  1306. X    check_args(&argc, argv, "-Ww", "-width", &force_cols, NULL);
  1307. X    check_args(&argc, argv, "-Wh", "-height", &force_rows, NULL);
  1308. X    check_args(&argc, argv, "-Ws", "-size", &force_width, &force_height);
  1309. X
  1310. X    tt_default_font = pf_default();
  1311. X    tt_default_mark = tt_make_label(FALSE, NULL, NULL, &tt_mark_image);
  1312. X    tt_default_nomark = tt_make_label(FALSE, NULL, NULL, &tt_nomark_image);
  1313. X    tt_default_cycle = tt_make_label(FALSE, NULL, NULL, &tt_cycle_image);
  1314. X    tt_a_font = tt_default_font;
  1315. X    tt_base_window = tt_make_base_window();
  1316. X    tt_make_intrinsic_symbols();
  1317. X    yyparse();
  1318. X    if (tt_errors_occured)
  1319. X       abend("%d errors.", tt_errors_occured);
  1320. X    if (force_height != -1)
  1321. X       if (force_rows != -1 || force_cols != -1)
  1322. X          abend("conflict between window size command line options");
  1323. X       else {
  1324. X          tt_base_window->is_chars = FALSE;
  1325. X          tt_base_window->rows = force_height;
  1326. X          tt_base_window->columns = force_width;
  1327. X          }
  1328. X    else {
  1329. X       if (force_rows != -1)
  1330. X          if (tt_base_window->is_chars)
  1331. X             tt_base_window->rows = force_rows;
  1332. X          else
  1333. X             tt_base_window->rows = force_rows * charheight_of(tt_a_font);
  1334. X       if (force_cols != -1)
  1335. X          if (tt_base_window->is_chars)
  1336. X             tt_base_window->columns = force_cols;
  1337. X          else
  1338. X             tt_base_window->columns = force_cols * charwidth_of(tt_a_font);
  1339. X       }
  1340. X    if (tt_base_window->g_align == NO_ALIGN)
  1341. X       tt_base_window->g_align = ALIGN_TOP;
  1342. X    build_window(argc, argv);
  1343. X    window_main_loop(tt_base_window->frame);
  1344. X    exit(0);
  1345. X}
  1346. END_OF_FILE
  1347. if test 6455 -ne `wc -c <'tooltool.c'`; then
  1348.     echo shar: \"'tooltool.c'\" unpacked with wrong size!
  1349. fi
  1350. # end of 'tooltool.c'
  1351. fi
  1352. echo shar: End of archive 3 \(of 13\).
  1353. cp /dev/null ark3isdone
  1354. MISSING=""
  1355. for I in 1 2 3 4 5 6 7 8 9 10 11 12 13 ; do
  1356.     if test ! -f ark${I}isdone ; then
  1357.     MISSING="${MISSING} ${I}"
  1358.     fi
  1359. done
  1360. if test "${MISSING}" = "" ; then
  1361.     echo You have unpacked all 13 archives.
  1362.     rm -f ark[1-9]isdone ark[1-9][0-9]isdone
  1363. else
  1364.     echo You still need to unpack the following archives:
  1365.     echo "        " ${MISSING}
  1366. fi
  1367. ##  End of shell archive.
  1368. exit 0
  1369.  
  1370.  
  1371. Chuck Musciano            ARPA  : chuck@trantor.harris-atd.com
  1372. Harris Corporation         Usenet: ...!uunet!x102a!trantor!chuck
  1373. PO Box 37, MS 3A/1912        AT&T  : (407) 727-6131
  1374. Melbourne, FL 32902        FAX   : (407) 727-{5118,5227,4004}
  1375.